home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Mac Game Programming Gurus / TricksOfTheMacGameProgrammingGurus.iso / CodeWarrior Lite / Metrowerks C⁄C++ Lite / Libraries / MacOS 68K / MathLib68K / MathLib68K Sources / ANSImath_glue(long).c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-11-22  |  3.7 KB  |  171 lines  |  [TEXT/MMCC]
  1. /*
  2.  *    math.h glue functions (long double precision math) ...
  3.  */
  4.  
  5. #ifndef __FP__
  6. #include <fp.h>
  7. #endif
  8.  
  9. /*
  10.  *    We can't include both fp.h and math.h since their definitions of cos, etc... conflict
  11.  */
  12.  
  13. #ifdef cplusplus
  14. extern "C" {
  15. #endif
  16. long double cosl(long double);
  17. long double sinl(long double);
  18. long double tanl(long double);
  19. long double acosl(long double);
  20. long double asinl(long double);
  21. long double atanl(long double);
  22. long double atan2l(long double, long double);
  23. long double coshl(long double);
  24. long double sinhl(long double);
  25. long double tanhl(long double);
  26. long double expl(long double);
  27. long double frexpl(long double, int *);
  28. long double ldexpl(long double, int);
  29. long double logl(long double);
  30. long double log10l(long double);
  31. long double modfl(long double, long double *);
  32. long double fabsl(long double);
  33. long double powl(long double, long double);
  34. long double sqrtl(long double);
  35. long double ceill(long double);
  36. long double floorl(long double);
  37. long double fmodl(long double, long double);
  38. #ifdef cplusplus
  39. }
  40. #endif
  41.  
  42. /*******************************************************************************
  43. *                            Trigonometric functions                           *
  44. *******************************************************************************/
  45.  
  46. long double cosl(long double x)
  47. {
  48.     return((cos)(x));
  49. }
  50.  
  51. long double sinl(long double x)
  52. {
  53.     return((sin)(x));
  54. }
  55.  
  56. long double tanl(long double x)
  57. {
  58.     return((tan)(x));
  59. }
  60.  
  61. long double acosl(long double x)
  62. {
  63.     return((acos)(x));
  64. }
  65.  
  66. long double asinl(long double x)
  67. {
  68.     return((asin)(x));
  69. }
  70.  
  71. long double atanl(long double x)
  72. {
  73.     return((atan)(x));
  74. }
  75.  
  76. long double atan2l(long double x, long double y)
  77. {
  78.     return((atan2)(x,y));
  79. }
  80.  
  81. /*******************************************************************************
  82. *                              Hyperbolic functions                            *
  83. *******************************************************************************/
  84.  
  85. long double coshl(long double x)
  86. {
  87.     return((cosh)(x));
  88. }
  89.  
  90. long double sinhl(long double x)
  91. {
  92.     return((sinh)(x));
  93. }
  94.  
  95. long double tanhl(long double x)
  96. {
  97.     return((tanh)(x));
  98. }
  99.  
  100. /*******************************************************************************
  101. *                              Exponential functions                           *
  102. *******************************************************************************/
  103.  
  104. long double expl(long double x)
  105. {
  106.     return((exp)(x));
  107. }
  108.  
  109. long double frexpl(long double x, int *exponent)
  110. {
  111.     return((frexp)(x,exponent));
  112. }
  113.  
  114. long double ldexpl(long double x, int n)
  115. {
  116.     return((ldexp)(x,n));
  117. }
  118.  
  119. long double logl(long double x)
  120. {
  121.     return((log)(x));
  122. }
  123.  
  124. long double log10l(long double x)
  125. {
  126.     return((log10)(x));
  127. }
  128.  
  129. /*******************************************************************************
  130. *                     Power and absolute value functions                       *
  131. *******************************************************************************/
  132.  
  133. long double fabsl(long double x)
  134. {
  135.     return((fabs)(x));
  136. }
  137.  
  138. long double powl(long double x, long double y)
  139. {
  140.     return((pow)(x,y));
  141. }
  142.  
  143. long double sqrtl(long double x)
  144. {
  145.     return((sqrt)(x));
  146. }
  147.  
  148. /*******************************************************************************
  149. *                        Nearest integer functions                             *
  150. *******************************************************************************/
  151.  
  152. long double ceill(long double x)
  153. {
  154.     return((ceil)(x));
  155. }
  156.  
  157. long double floorl(long double x)
  158. {
  159.     return((floor)(x));
  160. }
  161.  
  162. /*******************************************************************************
  163. *                            Remainder functions                               *
  164. *******************************************************************************/
  165.  
  166. long double fmodl(long double x, long double y)
  167. {
  168.     return((fmod)(x,y));
  169. }
  170.  
  171.